home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / tlxset02.arc / TLXLOGON.ARC / RBBS.SLT < prev    next >
Text File  |  1989-01-19  |  1KB  |  42 lines
  1. //    Sample script file to log-onto an RBBS based system.
  2. //
  3. //    note: _entry_pass is a system variable into which the dialing routines
  4. //          put whatever is in the password field of the dialing directory
  5. //          entry which was connected to.
  6. //          
  7. //    note: replace First with your first name and replace Last with your last 
  8. //          name. So, Joe Smith would put "Joe;Smith" on the line below. 
  9.  
  10. str user_name[] = "First;Last";
  11.  
  12. main()
  13.  
  14. {
  15.  alarm(1);
  16.  
  17.  if (not _entry_pass)                        // no pass, so didn't recog. board
  18.   {
  19.    prints ("Sorry, I don't know the password for this BBS!");
  20.    return;
  21.   }
  22.  
  23.  if (not waitfor("First Name", 120))        // if no prompt for name
  24.   {
  25.    prints("Log-on failed!");
  26.    return;                                   // ...abort
  27.   }
  28.  
  29.  cputs(user_name);                           // send name
  30.  cputs("^M");
  31.  
  32.  if (not waitfor("Password", 30))          // if no prompt for password
  33.   {
  34.    prints("Log-on failed!");
  35.    return;                                   // ...abort
  36.   }
  37.  
  38.  cputs(_entry_pass);                         // send pass
  39.  cputs("^M");
  40.  
  41. }
  42.